﻿Module Module1
  Sub Main()

    ' inizializzazione variabili
    Dim CharDaConvertire As Char = "A"c
    Dim ASCIIdaConvertire As Byte = 65

    ' PRIMA PARTE
    ' con uso delle funzioni Chr() e Asc()
    ' di(Microsoft.VisualBasic)

    ' primo test
    Dim carattere As Char
    carattere = Chr(ASCIIdaConvertire)
    Console.WriteLine(carattere) ' --> "A"
    ' secondo test
    Dim ascii As Integer
    ascii = Asc(CharDaConvertire)
    Console.WriteLine(ascii) ' --> "55"
    Console.ReadLine()

    ' SECONDA PARTE
    ' con uso dei metodi Convert.ToChar() e
    ' Convert.ToByte() di .NET Framework

    ' terzo test
    Dim carattere2 As Char
    carattere2 = Convert.ToChar(ASCIIdaConvertire)
    Console.WriteLine(carattere2) ' --> "A"
    ' quarto test
    Dim ascii2 As Integer
    ascii2 = Convert.ToByte(CharDaConvertire)
    Console.WriteLine(ascii2) ' --> "55"
    Console.ReadLine()

  End Sub
End Module
